home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / rjkpro_1.lha / rjkpro_1 / chessbob.amos / chessbob.amosSourceCode < prev    next >
AMOS Source Code  |  1997-04-02  |  1KB  |  73 lines
  1. '----------------------------------------------------
  2. '                   chess bob v1.2 
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished o2/o4/1997 13:24:28
  10. '----------------------------------------------------  
  11.  
  12. _CHESSBOB
  13.  
  14. Procedure _CHESSBOB
  15.    
  16.    Screen Open 0,320,256,4,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Hide 
  20.    Cls 0
  21.    
  22.    Palette $0,$FFF,$FFF,$0
  23.    
  24.    Degree 
  25.  
  26.    Screen Hide 
  27.    
  28.    Ink 3
  29.    Circle 64,64,63
  30.    Paint 64,64
  31.    Get Bob 1,0,0 To 128,128
  32.    Hot Spot 1,$11
  33.    Cls 0
  34.  
  35.    Screen Show 
  36.    
  37.    For Y=0 To 7
  38.       For X=0 To 9
  39.          Ink(X+Y) mod 2
  40.          Bar X*32,Y*32 To 31+X*32,31+Y*32
  41.       Next 
  42.    Next 
  43.    
  44.    Double Buffer 
  45.    
  46.    Set Bob 0,,%10,
  47.    Set Bob 1,,%10,
  48.    Set Bob 2,,%10,
  49.    Set Bob 3,,%10,
  50.    
  51.    _DEG1=90
  52.    _DEG2=190
  53.    
  54.    Repeat 
  55.       
  56.       Bob 0,160+Sin(_DEG1)*80,128+Cos(_DEG2)*80,1
  57.       Bob 1,160+Sin(_DEG2)*80,128+Cos(_DEG1)*80,1
  58.       Bob 2,160+Cos(_DEG1)*80,128+Sin(_DEG2)*80,1
  59.       Bob 3,160+Cos(_DEG2)*80,128+Sin(_DEG1)*80,1
  60.       
  61.       Add _DEG1,4,0 To 359
  62.       Add _DEG2,8,0 To 359
  63.  
  64.       Wait Vbl 
  65.       
  66.    Until Mouse Key<>0
  67.    
  68.    Fade 1,$0,$0,$0,$0
  69.    Wait 15
  70.  
  71.    Erase 1
  72.    
  73. End Proc